home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
comm2
/
ftp-gui.lha
/
FTP-Guide
/
ftpget
< prev
next >
Wrap
Text File
|
1995-10-15
|
982b
|
31 lines
/* $VER: FTPGET v1.00 by Christer Bjarnemo mr.bjarnemo@mn.medstroms.se
*
* IMPORTANT: You MUST have FTPMOUNT installed which makes any ftp site
* a part of amigados. Look at aminet:pub/disk/ftpmount.lha
*
*/
parse arg source dest
call addlib('rexxreqtools.library',0,-30,0)
call addlib('rexxsupport.library',0,-30,0)
if source = '' then source=rtfilerequest('ftp:','','Select a ftp site and file...')
if source ~= '' & dest = '' then dest=rtfilerequest('','','Select destination...')
if dest = '' then dest = '""'
if source = '?' | source = '' then do
say 'FTPGET V1.00 by Christer Bjarnemo mr.bjarnemo@mn.medstroms.se'
say ''
say 'USAGE: ftpget [ftp:address/path/file] [dest]'
say ''
say 'Example: ftpget ftp:ftp.luth.se/pub/aminet/index work:trashcan'
say ''
say 'If anything is omitted, a reqtools requester will appear..'
say 'Its also possible to use wildcards...'
exit
end
address command 'makedir 'source
address command 'copy 'source' 'dest